home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / drill.arc / UPDATE.BAS < prev   
Encoding:
BASIC Source File  |  1987-05-19  |  1.5 KB  |  49 lines
  1. 100 REM * UPDATE.BAS * FOR USE WITH DRILL.BAS PROGRAM TO UPDATE SPELLING FILES
  2. 110 DIM WO$(20)
  3. 120 PRINT
  4. 130 CLS
  5. 140 PRINT TAB(5)"----- Update Spelling Lesson Files -----"
  6. 150 PRINT
  7. 160 PRINT TAB(10)"1- Create a new Spelling file"
  8. 170 PRINT TAB(10)"2- Edit an existing Spelling file"
  9. 180 PRINT TAB(10)"3- END and Return to Drill Program
  10. 190 PRINT TAB(10)"4- END Session and Quit
  11. 200 PRINT
  12. 210 PRINT TAB(10)"The number of your choice is ";:INPUT A
  13. 220 IF A<1 OR A>4 THEN 130
  14. 230 ON A GOTO 240,430,560,570
  15. 240 PRINT"What is the number of this new spelling lesson";:INPUT A$:A=VAL(A$)
  16. 250 PRINT"What is the grade level of this lesson (4,5,6,7,8)";:INPUT GL$
  17. 260 IF VAL(GL$)<4 OR VAL(GL$)>8 THEN 250
  18. 270 CLS:PRINT"Enter your words as each number appears."
  19. 280 FOR X=1 TO 20
  20. 290 PRINT X;TAB(5);:INPUT WO$(X)
  21. 300 NEXT X
  22. 310 CLS
  23. 320 FOR X=1 TO 20 STEP 2
  24. 330 PRINT X;TAB(5);WO$(X);TAB(30);X+1;TAB(35);WO$(X+1)
  25. 340 NEXT X
  26. 350 U$="UNIT"+GL$+RIGHT$(A$,LEN(A$))
  27. 360 PRINT"Now saving file ";U$
  28. 370 OPEN "O",1,U$
  29. 380 FOR X=1 TO 20
  30. 390   PRINT #1,WO$(X)
  31. 400 NEXT X
  32. 410 CLOSE 1
  33. 420 GOTO 130
  34. 430 INPUT"ENTER the number of the lesson to correct";A$
  35. 440 INPUT"What is the Grade Level (4,5,6,7,8)";GL$
  36. 450 U$="UNIT"+GL$+A$
  37. 460 OPEN "I",1,U$
  38. 470 FOR X=1 TO 20
  39. 480   INPUT #1,WO$(X)
  40. 490 NEXT X
  41. 500 CLOSE 1
  42. 510 PRINT"Press ENTER to continue, or retype the word."
  43. 520 FOR X=1 TO 20
  44. 530   PRINT X;TAB(5);WO$(X);:W$=WO$(X):INPUT WO$(X):IF WO$(X)="" THEN WO$(X)=W$
  45. 540 NEXT X
  46. 550 GOTO 370
  47. 560 RUN"DRILL.BAS"
  48. 570 CLS:PRINT"Update Session is ended.":END
  49.